﻿Imports System.Data.OleDb
Public Class ThanhVienDAO
    Public Function Insert(ByVal tmp As ThanhVienDTO) As Integer
        Dim cn As OleDbConnection = DataProvider.ConnectionData()
        Dim str As String = "insert into THANHVIEN (IDThanhVien, TenThanhVien, SDT, CMND, MatKhau, HSSV) values (@IDThanhVien, @TenThanhVien, @SDT, @CMND, @MatKhau, @HSSV)"
        Dim cmd As OleDbCommand = New OleDbCommand(str, cn)

        Dim para1, para2, para3, para4, para5, para6 As OleDbParameter
        para1 = New OleDbParameter("@IDThanhVien", tmp.IDThanhVien)
        cmd.Parameters.Add(para1)
        para2 = New OleDbParameter("@TenThanhVien", tmp.TenThanhVien)
        cmd.Parameters.Add(para2)
        para3 = New OleDbParameter("@SDT", tmp.SDT)
        cmd.Parameters.Add(para3)
        para4 = New OleDbParameter("@CMND", tmp.CMND)
        cmd.Parameters.Add(para4)
        para5 = New OleDbParameter("@MatKhau", tmp.MatKhau)
        cmd.Parameters.Add(para5)
        para6 = New OleDbParameter("@HSSV", tmp.HSSV)
        cmd.Parameters.Add(para6)


        Dim result As Integer = cmd.ExecuteNonQuery()
        cn.Close()
        Return result
    End Function

    Public Function Update(ByVal tmp As ThanhVienDTO) As Integer
        Dim cn As OleDbConnection = DataProvider.ConnectionData()
        Dim str As String = "update THANHVIEN set TenThanhVien=@TenThanhVien,SDT=@SDT,CMND=@CMND,MatKhau=@MatKhau,HSSV=@HSSV where IDThanhVien=@IDThanhVien"
        Dim cmd As OleDbCommand = New OleDbCommand(str, cn)

        Dim para1, para2, para3, para4, para5, para6 As OleDbParameter
        para1 = New OleDbParameter("@TenThanhVien", tmp.TenThanhVien)
        cmd.Parameters.Add(para1)
        para2 = New OleDbParameter("@SDT", tmp.SDT)
        cmd.Parameters.Add(para2)
        para3 = New OleDbParameter("@CMND", tmp.CMND)
        cmd.Parameters.Add(para3)
        para4 = New OleDbParameter("@MatKhau", tmp.MatKhau)
        cmd.Parameters.Add(para4)
        para5 = New OleDbParameter("@HSSV", tmp.HSSV)
        cmd.Parameters.Add(para5)
        para6 = New OleDbParameter("@IDThanhVien", tmp.IDThanhVien)
        cmd.Parameters.Add(para6)

        Dim result As Integer = cmd.ExecuteNonQuery()
        cn.Close()
        Return result
    End Function

    Public Function Delete(ByVal tmp As ThanhVienDTO) As Integer
        Dim cn As OleDbConnection = DataProvider.ConnectionData()
        Dim str As String = "delete from THANHVIEN where IDThanhVien=@IDThanhVien"
        Dim cmd As OleDbCommand = New OleDbCommand(str, cn)

        Dim para1 As OleDbParameter
        para1 = New OleDbParameter("@IDThanhVien", tmp.IDThanhVien)
        cmd.Parameters.Add(para1)

        Dim result As Integer = cmd.ExecuteNonQuery()
        cn.Close()
        Return result
    End Function
    Public Function GetTable(ByVal t As String) As DataTable
        Dim dt As DataTable = New DataTable()
        Dim cn As OleDbConnection = DataProvider.ConnectionData()
        Dim str As String = t
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(str, cn)
        da.Fill(dt)
        cn.Close()
        Return dt
    End Function
    Public Function GetValue(ByVal t As String) As String
        Dim cn As OleDbConnection = DataProvider.ConnectionData()
        Dim str As String = t
        Dim cmd As OleDbCommand = New OleDbCommand(str, cn)
        Dim kq As String = cmd.ExecuteScalar()
        Return kq
    End Function
End Class
